home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
LORD2B6.ZIP
/
ITEMS.REF
< prev
next >
Wrap
Text File
|
1997-05-19
|
11KB
|
607 lines
;Items file
@#QUEST
;help them remember where they need to deliver something
;get location and name
@do `p20 is `p15
@routine getname in quest.ref
@routine getplace in quest.ref
@clearblock 13 23
@do move 1 13
@do `s02 is `2You`xstarted`xthis`xquest`x`0`p32`2`xdays`xago.
@if `p32 is 0 then `s02 is You`xstarted`xthis`xquest`xtoday.
@if `p32 is 1 then `s02 is `2You`xstarted`xthis`xquest`xyesterday.
@show
`2You need to take this to `0`s01`2 in `0`s03`2.
`s02
`\`k
@closescript
@#item1
;Wildberrys
@clearblock 13 23
@do move 1 13
@show
`2You chug 'em down. Boy do they taste good.
@if `p02 less `p03 then do
@begin
@show
`%You feel a little better.
@do `p02 + 1
@savecursor
@clearblock 5 11
@routine drawstats in gametxt.ref
@loadcursor
@end
@key
@#item2
;poisonberrys
@clearblock 13 23
@do move 1 13
@show
`2You slurp it up. It tastes ok at first but then... `bACK!`2
You hook all over the place!
`4HITPOINTS GO DOWN BY ONE.
@if `p02 more 0 then `p02 - 1
@clearblock 5 11
@routine drawstats in gametxt.ref
@do move 1 19
@key
@#item3
;Milk
@clearblock 13 23
@do move 1 13
@show
`2You down the cow juice.
`2It's a little warm, but thats how ya like it!
`k
@
@#item5
;Green potion
@clearblock 13 23
@do move 1 13
@show
`2You drink the green liquid.
@if `p02 less `p03 then do
@begin
@show
`%You feel better!
@do `p02 + 10
@if `p02 more `p03 then `p02 is `p03
@savecursor
@clearblock 5 11
@routine drawstats in gametxt.ref
@loadcursor
@end
@key
@#item7
;Flute.. not finished.
@clearblock 13 23
@do move 1 13
@show
`2No sound comes out, must be broke.
`k
@
@#item8
;momma's pie
@clearblock 13 23
@do move 1 13
@show
`2You messily chow down the berry pie.
After a satisfying belch, the pie is gone.
@if `p02 less `p03 then do
@begin
@do `p02 + 50
@if `p02 > `p03 then `p02 is `p03
@savecursor
@clearblock 5 11
@routine drawstats in gametxt.ref
@loadcursor
@end
@key
@#item11
;talking to little girl
@do `v01 is 1
@label item11s
@show
`r0`c `r1 `0TALKING TO YOUR CHARGE `r0
`2 You motion the girl to sit down so that you may speak with her.
@do write
`x`x
@choice
`%Where is your mother waiting for you again?
What were you doing so far from town?
`4Kill her.
`%Nevermind
@if response is 1 then do
@begin
@show
`\`\ `0"My mommy is waiting for me at the `4Red Dragon Inn`0. Please, lets hurry,
before she leaves!"
`k
@do goto item11s
@end
@if response is 2 then do
@begin
@show
`\`\ `0"I was picking flowers and.. I wanna go home!" `2the girl cries.
`k
@do goto item11s
@end
@if response is 3 then do
@begin
@show
`\`\ `$"Come here, small one. I won't hurt you." `2you beckon.
`2 The child slowly advances towards you. `0"Yes sir?"
@do write
`x`x
@do `v01 is 1
@choice
End her life.
Have mercy on her.
@if responce is 2 then do
@begin
@show
`\`\ `$"I just wanted to... Straighten your dress. There, all better."
`2 She thanks you. If only she knew how close you had come to...
`k
@do `v01 is 3
@do goto item11s
@end
@show
`\`\ `2You quickly crush the life out of her. In a few moments, it is over.
`k `2Looking down at her lifeless body you are saddened. What ever posessed
you to do this awful thing?
`4ALIGNMENT GOES DOWN BY ONE.
`k
@do `i11 is 0
@do `p07 - 1
@end
@run stats in gametxt.ref
@#ITEM17
;Gloworm
@clearblock 13 23
@do move 1 13
@if map is 1289 then do
@begin
@show
`2You bite into the little guy.
`$Your mouth is glowing!
`k `%The area is much brighter now. Good thinking!
`k
@do map is 1285
@loadmap 1285
@closescript
@end
@show
`2You bite into the little guy.
`$Your mouth is glowing!
`k `2Gee, it would be more fun in the dark, you can't really see it glow here.
`k
@
@#item18
;talking to hector
@do `v01 is 1
@label item18s
@show
`r0`c `r1 `0TALKING TO HECTOR `r0
`2 You let the bird poke one head out and speak with you.
@do write
`x`x
@choice
How do you know the old woman wants to eat you?
Taunt the bird
Set Hector free
Want a cracker?
`%Nevermind
@if response is 1 then do
@begin
@show
`\`\ `0"That witch has told me so, dozens of times! Awk! She kept me locked
up for months trying to fatten me up!"
`k `$"Why did she 'enchant' you into a bird? Why does she hate you so much?"
`0"I threw stones at her shack with some friends. Now I'm paying for it!"
`k
@do goto item18s
@end
@if response is 2 then do
@begin
@show
`\`\ `$"Say... Hector. You are gonna taste MIGHTY fine in the old woman's stew!"
`0"Awk! No! Please let me go!"
`k `$"Haha... and lose my main course? I don't think so." `2you laugh.
`k
@do goto item18s
@end
@if response is 4 then do
@begin
@show
`\`\ `$"Little birdy wordy wanna cracker?" you ask.
`0 "I most certainly do not!" `2Hector sqawks indignantly.
`k
@do goto item18s
@end
@if response is 3 then do
@begin
@show
`\`\ `$"Hector. If I let you go... Will you be a good bird?" `2you ask.
`2 Hector violently nods his beak.
@do write
`x`x
@do `v01 is 1
@choice
Throw Hector into the sky
Put him back in your pouch
@if response is 1 then do
@begin
@show
`\`\ `$Fly, Hector! Fly!" `2you exclaim as you toss Hector up.
`k The bird sqawks with joy - and soon is gone.
`%ALIGNMENT GOES UP BY 5.
`k
@do `i18 is 0
@do `t08 is 3
@do `p07 + 5
@run stats in gametxt.ref
@end
@show
`\`\ `$"Well... I was just kidding, so get back into that bag!"
`k
@do `v01 is 3
@do goto item18s
@end
@run stats in gametxt.ref
@#item19
;Eating the apple
@clearblock 13 23
@do move 1 13
@show
`2It tastes delicious.
`k
@
@#item20
;Using the map.
@clearblock 13 23
@do move 1 13
@show
`2To use this item, press `0M`2 from the 'map' menu.
`k
@
@#item22
;Using the map.
@clearblock 13 23
@do move 1 13
@if `i22 < 1 then goto fail22
@if `i23 < 1 then goto fail22
@if `i24 < 1 then goto fail22
@if `i25 < 1 then goto fail22
@show
`2You carefully fit all four pieces of this strange wand together...
`k `%THE WAND COMES TO LIFE, BURNING IN YOUR HANDS.
`k `0YOU ARE TELEPORTED TO A STRANGE AND WONDEROUS PLACE!
`2You discard the now burned out wand.
`\`k `2Somehow you feel safe here - as though you were back in your mother's
womb and she was laying in a bed stomach down. `k
@do map is 154
@loadmap 154
@do x is 14
@do y is 12
@do `i22 - 1
@do `i23 - 1
@do `i24 - 1
@do `i25 - 1
@itemexit
@drawmap
@update
@closescript
@label fail22
@show
`2You can't seem to make it work. Pieces are missing it looks like.
`k
@
@#ITEM28
;Casting the fishing rod
@clearblock 13 23
@do move 1 13
@show
`2You practice casting. Can't wait for a fishing dock to try this out
on!
`k
@
@#item40
;Blue potion, heals 50
@clearblock 13 23
@do move 1 13
@show
`2You drink the blue liquid.
@if `p02 less `p03 then do
@begin
@show
`%You feel better!
@do `p02 + 50
@if `p02 more `p03 then `p02 is `p03
@savecursor
@clearblock 5 11
@routine drawstats in gametxt.ref
@loadcursor
@end
@key
@#ITEM41
;Reading ma's letter
@clearblock 13 23
@do move 1 13
@show
`2The letter reads:
`%Dear brother, Ellie is with child. The tramp must be taught a lesson
only you can teach. Please bring what you need, and hurry.
@if bitcheck `t12 6 0 then do
@begin
@bitset `t12 6 1
@do `p07 - 5
@savecursor
@clearblock 5 11
@routine drawstats in gametxt.ref
@loadcursor
@show
`4Your alignment goes down by 5.
@end
@show
`k
@
@#ITEM42
;Talking to Laura and Edward
@show
`r0`c `r1 Talking with Laura and Uncle Edward `r0
`2Laura's pretty face is dirty but determined. Edward is panting
heavily.
@do write
`x`x
@do `v01 is 1
@choice
Talk to Laura
Talk to Uncle Edward
Talk to nobody
@if response is 1 then do
@begin
@show
`\`\ `$"Hey uh.. Laura. You got a boyfriend?" `2you casually
ask.
`k `0"Not yet. Maybe after all this is over you can come over and talk
to me about it?"
`k `$"You bet! What are friends for?" `2you grin.
`\`k
@do goto item42
@closescript
@end
@if response is 2 then do
@begin
@show
`\`\ `2You feel this might be a bad idea. You sure?
@do `v01 is 1
@do write
`x`x
@choice
Yes, talk to 'em
Good call
@if response is 2 then do
@begin
@do goto item42
@closescript
@end
@show
`\`\ `$"Friend Edward! Why do you live with your niece?, anyway?" `2you ask,
carefully shielding your mouth with one hand.
`k `0"Well - Laura's parents were killed by `4Dragon Tooth `0riders. They
burned down her whole village a few months ago. She survived... but
not without scars. Luckily I was there to help."
`k
@do goto item42
@closescript
@end
@run stats in gametxt.ref
@#ITEM50
;travel potion
@clearblock 13 23
@do move 1 13
@show
`2You empty the vial's contents down your throat.
`k `2Your mind begins to spin... Streaks of light dance in your head
at your command. You are the ruler of this universe of brilliance -
and then... it all stops.
`k
@itemexit ;this will cause it to exit to the map screen directly after
;finishing this .ref
@do `p20 random 9 1
@if `p20 is 1 then do
@begin
@do map is 1498
@do x is 49
@do y is 6
@end
@if `p20 is 2 then do
@begin
@do map is 1271
@do x is 28
@do y is 11
@end
@if `p20 is 3 then do
@begin
@do map is 379
@do x is 55
@do y is 4
@end
@if `p20 is 4 then do
@begin
@do map is 1255
@do x is 58
@do y is 6
@end
@if `p20 is 5 then do
@begin
@do map is 1576
@do x is 24
@do y is 4
@end
@if `p20 is 6 then do
@begin
@do map is 1029
@do x is 27
@do y is 10
@end
@if `p20 is 7 then do
@begin
@do map is 1358
@do x is 66
@do y is 3
@end
@if `p20 is 8 then do
@begin
@do map is 1093
@do x is 44
@do y is 10
@end
@if `p20 is 9 then do
@begin
@do map is 1035
@do x is 46
@do y is 11
@end
@loadmap &map
@drawmap
@update
@#NOMOREITEMS